"0","```r
clust_euc_ward.D2 <- hclust(scpdSM_euc, method=\"ward.D2\")
clust_euc_neighbor <- hclust(scpdSM_euc, method=\"single\")
clust_euc_upgma <- hclust(scpdSM_euc, method=\"average\") #UPGMA
clust_euc_wpgma <- hclust(scpdSM_euc, method=\"mcquitty\") #WPGMA

clust_bray_ward.D2 <- hclust(scpdSM_bray, method=\"ward.D2\")
clust_bray_neighbor <- hclust(scpdSM_bray, method=\"single\")
clust_bray_upgma <- hclust(scpdSM_bray, method=\"average\") #UPGMA
clust_bray_wpgma <- hclust(scpdSM_bray, method=\"mcquitty\") #WPGMA

clust_chao_ward.D2 <- hclust(scpdSM_chao, method=\"ward.D2\")
clust_chao_neighbor <- hclust(scpdSM_chao, method=\"single\")
clust_chao_upgma <- hclust(scpdSM_chao, method=\"average\") #UPGMA
clust_chao_wpgma <- hclust(scpdSM_chao, method=\"mcquitty\") #WPGMA
```"
